home *** CD-ROM | disk | FTP | other *** search
/ Manchester United on CD / Manchester United on CD.iso / mainmenu.dxr / Internal_11_airport display master.ls < prev    next >
Encoding:
Text File  |  2000-08-30  |  1.9 KB  |  62 lines
  1. property pl_linelist, pl_currentdisplaylist, pi_currentletternum, pi_currentlistnum, pb_changedisplay
  2.  
  3. on new me
  4.   return me
  5. end
  6.  
  7. on init me, line1list, line2list, line3list, line4list, line5list, line6list
  8.   pl_linelist = [line1list, line2list, line3list, line4list, line5list, line6list]
  9. end
  10.  
  11. on changedisplayto me, str1, str2, str3, str4, str5, str6
  12.   if str1 = EMPTY then
  13.     repeat with alist in pl_linelist
  14.       repeat with t = alist[1] to alist[2]
  15.         sprite(t).member = member(32, "letters")
  16.       end repeat
  17.     end repeat
  18.   else
  19.     if listp(str1) then
  20.       tmplist = str1
  21.     else
  22.       tmplist = [str1, str2, str3, str4, str5, str6]
  23.     end if
  24.     repeat with t = 1 to tmplist.count
  25.       if voidp(tmplist[t]) then
  26.         tmplist[t] = EMPTY
  27.       end if
  28.     end repeat
  29.     if tmplist <> pl_currentdisplaylist then
  30.       repeat with alist in pl_linelist
  31.         repeat with t = alist[1] to alist[2]
  32.           sprite(t).member = member(32, "letters")
  33.         end repeat
  34.       end repeat
  35.       pl_currentdisplaylist = tmplist
  36.       pi_currentlistnum = 1
  37.       pi_currentletternum = 1
  38.       pb_changedisplay = 1
  39.     end if
  40.   end if
  41. end
  42.  
  43. on Update me
  44.   if pb_changedisplay = 1 then
  45.     if pi_currentletternum <= (pl_linelist[pi_currentlistnum][2] - pl_linelist[pi_currentlistnum][1] + 1) then
  46.       if pi_currentletternum <= pl_currentdisplaylist[pi_currentlistnum].char.count then
  47.         castnumber = charToNum(pl_currentdisplaylist[pi_currentlistnum].char[pi_currentletternum])
  48.       else
  49.         castnumber = 32
  50.       end if
  51.       sprite(pl_linelist[pi_currentlistnum][1] + (pi_currentletternum - 1)).member = member(castnumber, "letters")
  52.       pi_currentletternum = pi_currentletternum + 1
  53.     else
  54.       pi_currentlistnum = pi_currentlistnum + 1
  55.       pi_currentletternum = 1
  56.       if pi_currentlistnum > pl_currentdisplaylist.count then
  57.         pb_changedisplay = 0
  58.       end if
  59.     end if
  60.   end if
  61. end
  62.